home *** CD-ROM | disk | FTP | other *** search
/ Graduation from F.U. / Graduation from F.U..iso / macproj / macproj.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1995-02-17  |  2.4 KB  |  105 lines
  1. global TheIN, TheOUT, DoThis
  2.  
  3. on SwitchSound
  4.   if the soundLevel = 0 then
  5.     set the soundLevel to 7
  6.     set the castNum of sprite 7 to the number of cast "sound on out"
  7.   else
  8.     set the soundLevel to 0
  9.     set the castNum of sprite 7 to the number of cast "sound off out"
  10.   end if
  11. end
  12.  
  13. on buttonswitch whichSprite
  14.   set Doit to 1
  15.   set the castNum of sprite whichSprite to the number of cast TheIN
  16.   updateStage()
  17.   repeat while the stillDown
  18.     if rollOver(whichSprite) then
  19.       set the castNum of sprite whichSprite to the number of cast TheIN
  20.       updateStage()
  21.       set Doit to 1
  22.       next repeat
  23.     end if
  24.     set the castNum of sprite whichSprite to the number of cast TheOUT
  25.     updateStage()
  26.     set Doit to 0
  27.   end repeat
  28.   if Doit = 1 then
  29.     SwitchSound()
  30.     updateStage()
  31.   else
  32.     exit
  33.   end if
  34. end
  35.  
  36. on ButtonSwitch2 whichSprite
  37.   set Doit to 1
  38.   set the castNum of sprite whichSprite to the number of cast TheIN
  39.   updateStage()
  40.   repeat while the stillDown
  41.     if rollOver(whichSprite) then
  42.       set the castNum of sprite whichSprite to the number of cast TheIN
  43.       updateStage()
  44.       set Doit to 1
  45.       next repeat
  46.     end if
  47.     set the castNum of sprite whichSprite to the number of cast TheOUT
  48.     updateStage()
  49.     set Doit to 0
  50.   end repeat
  51.   if Doit = 1 then
  52.     updateStage()
  53.   else
  54.     exit
  55.   end if
  56. end
  57.  
  58. on ButtonSwitch3 whichSprite
  59.   global GoBackTo
  60.   set Doit to 1
  61.   set the castNum of sprite whichSprite to the number of cast TheIN
  62.   updateStage()
  63.   repeat while the stillDown
  64.     if rollOver(whichSprite) then
  65.       set the castNum of sprite whichSprite to the number of cast TheIN
  66.       updateStage()
  67.       set Doit to 1
  68.       next repeat
  69.     end if
  70.     set the castNum of sprite whichSprite to the number of cast TheOUT
  71.     updateStage()
  72.     set Doit to 0
  73.   end repeat
  74.   if Doit = 1 then
  75.     go(GoBackTo)
  76.     updateStage()
  77.   else
  78.     exit
  79.   end if
  80. end
  81.  
  82. on ButtonSwitch4 whichSprite
  83.   set Doit to 1
  84.   set the castNum of sprite whichSprite to the number of cast TheIN
  85.   updateStage()
  86.   repeat while the stillDown
  87.     if rollOver(whichSprite) then
  88.       set the castNum of sprite whichSprite to the number of cast TheIN
  89.       updateStage()
  90.       set Doit to 1
  91.       next repeat
  92.     end if
  93.     set the castNum of sprite whichSprite to the number of cast TheOUT
  94.     updateStage()
  95.     set Doit to 0
  96.   end repeat
  97.   if Doit = 1 then
  98.     AllPuppetsOff()
  99.     go("panic")
  100.     updateStage()
  101.   else
  102.     exit
  103.   end if
  104. end
  105.